home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 24 / AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MT-RechnungIII / PrintDoks / PaketkarteNN+Z.outpri < prev    next >
Text File  |  1999-03-27  |  6KB  |  283 lines
  1. 1$VER: PaketkarteNN+Z 1.08 (28.03.99)
  2. %!PS-Adobe-3.0
  3. %%Creator: Manfred Tremmel
  4. %%CreationDate: (28.03.1999)
  5. %%Version: 1.08
  6. %%Title: (MT-RechnungIII - Nachnahme Paketkarte mit Zahlschein)
  7. %%LanguageLevel: 2
  8. %%DocumentMedia: PaketKarteNNuZ 427 640 null () ()
  9. %%DocumentNeededResources: font Times-Roman Courier
  10. %%BoundingBox: 0 0 427 640
  11. %%EndComments
  12. %%BeginnDefaults
  13. %%PageMedia: PaketKarteNNuZ
  14. %%EndDefaults
  15.  
  16. %%BeginnSetup
  17. << /PageSize [427 640] >> setpagedevice
  18.  
  19. /PageSize [427 640] def
  20.  
  21. /DokumentRandX 28 def
  22. /DokumentRandY 70 def
  23.  
  24. DruckrandX 720 mul 256 div /DruckrandX exch def
  25. DruckrandY 720 mul 256 div /DruckrandY exch def
  26.  
  27. DruckrandX DokumentRandX ge
  28. {
  29.     0 /DokumentRandX exch def
  30. }
  31. {
  32.     DokumentRandX DruckrandX sub /DokumentRandX exch def
  33. } ifelse
  34.  
  35. DruckrandY DokumentRandY ge
  36. {
  37.     PageSize 1 get /DokumentRandY exch def
  38. }
  39. {
  40.     PageSize 1 get DokumentRandY sub DruckrandY add /DokumentRandY exch def
  41. } ifelse
  42. %%EndSetup
  43.  
  44. %%BeginnResource
  45. /reencodedict 5 dict def
  46. /ReEncode
  47. {
  48.      reencodedict begin
  49.      /newencoding exch def
  50.      /newfontname exch def
  51.      /basefontname exch def
  52.  
  53.      /basefontdict basefontname findfont def
  54.  
  55.      /newfont basefontdict maxlength dict def
  56.  
  57.      basefontdict
  58.      { exch dup dup /FID ne exch /Encoding ne and
  59.           { exch newfont 3 1 roll put }
  60.           { pop pop }
  61.           ifelse
  62.      } forall
  63.      newfont /FontName newfontname put
  64.      newfont /Encoding newencoding put
  65.      newfontname newfont definefont pop
  66.      end
  67. } def
  68.  
  69. /ISOLatin8Encoding
  70. [
  71.     ISOLatin1Encoding 0 164 getinterval aload pop
  72.     /euro
  73.     ISOLatin1Encoding 165 91 getinterval aload pop
  74. ] def
  75. /getfont {ISOLatin8Encoding ReEncode findfont exch scalefont def} bind def
  76. %%EndResource
  77.  
  78. %% Fontpsoidoname, Fontgroesse, Realname, Programm (siehe oben)
  79. /Times14 14 /OF0 /Times-Roman /OF0 getfont
  80. /Courier 14 /OF0 /Courier /OF0 getfont
  81.  
  82. Times14 setfont
  83.  
  84.  
  85. %% Ausgab des Dokuments
  86. DokumentRandX DokumentRandY moveto
  87. NiedFirma1 () gt
  88. {
  89.     NiedFirma1 show
  90. }
  91. {
  92.     NiedVorname () gt
  93.     {
  94.         NiedVorname show
  95.         ( ) show
  96.     } if
  97.     NiedName show
  98. } ifelse
  99.  
  100. DokumentRandY 22 sub /DokumentRandY exch def
  101. DokumentRandX DokumentRandY moveto
  102. NiedStrasse show
  103.  
  104. DokumentRandY 22 sub /DokumentRandY exch def
  105. DokumentRandX DokumentRandY moveto
  106. NiedPLZ2 show
  107. ( ) show
  108. NiedOrt show
  109.  
  110. DokumentRandY 40 sub /DokumentRandY exch def
  111. DokumentRandX DokumentRandY moveto
  112. ARWaehrung 1 gt
  113. {
  114.     ARGesamtZusminRabSkonWert 3 get
  115. }
  116. {
  117.     ARGesamtZusminRabSkonWert 1 get
  118. } ifelse
  119. %% ARWaehrung search pop exch pop
  120. %% dup length 0 gt
  121. %%  { exch pop }
  122. %% { pop } ifelse
  123. dup stringwidth
  124. pop 180 exch sub
  125. DokumentRandX add DokumentRandY moveto show
  126.  
  127. DokumentRandY 41 sub /DokumentRandY exch def
  128. DokumentRandX 50 add DokumentRandY moveto
  129. NiedKonto show
  130.  
  131. DokumentRandX 210 add DokumentRandY moveto
  132. RempfFirma1 () gt
  133. {
  134.     RempfFirma1 show
  135.     DokumentRandY 24 sub /DokumentRandY exch def
  136.     DokumentRandX 210 add DokumentRandY moveto
  137.     RempfFirma2 () gt
  138.     {
  139.         RempfFirma2 show
  140.     }
  141.     {
  142.         RempfVorname () gt
  143.         {
  144.             RempfVorname show
  145.             ( ) show
  146.         } if
  147.         RempfName show
  148.     } ifelse
  149. }
  150. {
  151.     RempfAnrede show
  152.     DokumentRandY 24 sub /DokumentRandY exch def
  153.     DokumentRandX 210 add DokumentRandY moveto
  154.     RempfVorname () gt
  155.     {
  156.         RempfVorname show
  157.         ( ) show
  158.     } if
  159.     RempfName show
  160. } ifelse
  161.  
  162. DokumentRandX 50 add DokumentRandY moveto
  163. NiedBankkurz show
  164.  
  165. DokumentRandY 24 sub /DokumentRandY exch def
  166. DokumentRandX 210 add DokumentRandY moveto
  167. RempfStrasse show
  168.  
  169. DokumentRandX 108 add DokumentRandY moveto
  170. NiedBLZ2 show
  171.  
  172. DokumentRandY 42 sub /DokumentRandY exch def
  173. DokumentRandX 210 add DokumentRandY moveto
  174. RempfPLZ2 show
  175. ( ) show
  176. RempfOrt show
  177.  
  178. %% Zahlschein
  179. Courier setfont
  180.  
  181. /XO 5.81 def
  182.  
  183. %% Währungssymbol vom Betrag entfernen, momentan auf kommentar
  184. ARWaehrung 1 gt
  185. {
  186.     /Betrag ARGesamtminRabSkonWert 3 get def
  187. }
  188. {
  189.     /Betrag ARGesamtminRabSkonWert 1 get def
  190. } ifelse
  191. Betrag ARWaehrungSymbol search pop exch pop
  192. dup length 0 gt
  193. { exch pop }
  194. { pop } ifelse
  195. /Betrag exch def
  196.  
  197. /zwischenstring 80 string def
  198. DokumentRandY 117 sub /DokumentRandY exch def
  199. DokumentRandX DokumentRandY moveto
  200. NiedFirma1 () gt
  201. {
  202.     NiedFirma1 zwischenstring copy pop
  203.     /laenge NiedFirma1 length def
  204. }
  205. {
  206.     NiedName zwischenstring copy pop
  207.     zwischenstring NiedName length ( ) putinterval
  208.     zwischenstring NiedName length 1 add NiedVorname putinterval
  209.     /laenge NiedName length NiedVorname length add 1 add def
  210. } ifelse
  211.  
  212. laenge 27 gt
  213. {
  214.     /laenge 27 def
  215. } if
  216. XO 0 zwischenstring 0 laenge getinterval ashow
  217.  
  218. DokumentRandY 24 sub /DokumentRandY exch def
  219. DokumentRandX DokumentRandY moveto
  220. XO 0 NiedKonto ashow
  221.  
  222. DokumentRandX 270 add DokumentRandY moveto
  223. XO 0 NiedBLZ ashow
  224.  
  225. DokumentRandY 24 sub /DokumentRandY exch def
  226. DokumentRandX DokumentRandY moveto
  227. /laenge NiedBank length def
  228. laenge 27 gt
  229. {
  230.     /laenge 27 def
  231. } if
  232. XO 0 NiedBank 0 laenge getinterval ashow
  233.  
  234. DokumentRandY 24 sub /DokumentRandY exch def
  235. DokumentRandX 156 add DokumentRandY moveto
  236. XO 0 ARWaehrungSymbol ashow
  237.  
  238. DokumentRandX 214 add DokumentRandY moveto
  239. XO 0 Betrag ashow
  240.  
  241. DokumentRandY 24 sub /DokumentRandY exch def
  242. DokumentRandX DokumentRandY moveto
  243. XO 0 (Rechnung: ) ashow
  244. XO 0 DokumentNr ashow
  245.  
  246. DokumentRandY 24 sub /DokumentRandY exch def
  247. DokumentRandX DokumentRandY moveto
  248. XO 0 (Kundennummer: ) ashow
  249. XO 0 ARRechEmpfNr ashow
  250.  
  251. DokumentRandY 24 sub /DokumentRandY exch def
  252. DokumentRandX DokumentRandY moveto
  253. RempfFirma1 () gt
  254. {
  255.     RempfFirma1 zwischenstring copy pop
  256.     /laenge RempfFirma1 length def
  257. }
  258. {
  259.     RempfName zwischenstring copy pop
  260.     zwischenstring RempfName length ( ) putinterval
  261.     zwischenstring RempfName length 1 add RempfVorname putinterval
  262.     /laenge RempfName length RempfVorname length add 1 add def
  263. } ifelse
  264. zwischenstring laenge (, ) putinterval
  265. zwischenstring laenge 2 add RempfOrt putinterval
  266. laenge RempfOrt length add 2 add /laenge exch def
  267. laenge 27 gt
  268. {
  269.     /laenge 27 def
  270. } if
  271. XO 0 zwischenstring 0 laenge getinterval ashow
  272.  
  273. DokumentRandY 24 sub /DokumentRandY exch def
  274. DokumentRandX 157 add DokumentRandY moveto
  275. XO 0 Betrag ashow
  276.  
  277. showpage
  278.  
  279. %%Trailer
  280. clear
  281. %%EOF
  282.  
  283.